home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / f1ocx / vcform1.3 / VB4 / TIMING1 / FOTime1.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-15  |  10.8 KB  |  360 lines

  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Formula One Timing Project"
  4.    ClientHeight    =   6795
  5.    ClientLeft      =   1050
  6.    ClientTop       =   1635
  7.    ClientWidth     =   9495
  8.    BeginProperty Font 
  9.       name            =   "MS Sans Serif"
  10.       charset         =   0
  11.       weight          =   700
  12.       size            =   8.25
  13.       underline       =   0   'False
  14.       italic          =   0   'False
  15.       strikethrough   =   0   'False
  16.    EndProperty
  17.    Height          =   7260
  18.    Icon            =   "FOTime1.frx":0000
  19.    Left            =   960
  20.    LinkTopic       =   "Form1"
  21.    ScaleHeight     =   6795
  22.    ScaleWidth      =   9495
  23.    Top             =   1260
  24.    Width           =   9675
  25.    Begin VB.Frame Results 
  26.       Caption         =   "Results"
  27.       BeginProperty Font 
  28.          name            =   "Arial"
  29.          charset         =   0
  30.          weight          =   700
  31.          size            =   12
  32.          underline       =   0   'False
  33.          italic          =   0   'False
  34.          strikethrough   =   0   'False
  35.       EndProperty
  36.       ForeColor       =   &H000000FF&
  37.       Height          =   1335
  38.       Left            =   2760
  39.       TabIndex        =   0
  40.       Top             =   0
  41.       Width           =   4455
  42.       Begin VB.Label VTSTimeRaw 
  43.          BorderStyle     =   1  'Fixed Single
  44.          Caption         =   "Formula One Time"
  45.          BeginProperty Font 
  46.             name            =   "Arial"
  47.             charset         =   0
  48.             weight          =   700
  49.             size            =   12
  50.             underline       =   0   'False
  51.             italic          =   0   'False
  52.             strikethrough   =   0   'False
  53.          EndProperty
  54.          ForeColor       =   &H00FF0000&
  55.          Height          =   375
  56.          Left            =   240
  57.          TabIndex        =   1
  58.          Top             =   480
  59.          Width           =   2535
  60.       End
  61.       Begin VB.Label Insuff 
  62.          Caption         =   "Times less than .2 seconds are invalid"
  63.          ForeColor       =   &H000000FF&
  64.          Height          =   255
  65.          Left            =   240
  66.          TabIndex        =   2
  67.          Top             =   960
  68.          Width           =   3495
  69.       End
  70.    End
  71.    Begin VB.Frame Frame1 
  72.       Caption         =   "Timing Operations"
  73.       BeginProperty Font 
  74.          name            =   "Arial"
  75.          charset         =   0
  76.          weight          =   700
  77.          size            =   12
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       ForeColor       =   &H000000FF&
  83.       Height          =   6735
  84.       Left            =   120
  85.       TabIndex        =   3
  86.       Top             =   0
  87.       Width           =   2415
  88.       Begin VB.CommandButton Command23 
  89.          Caption         =   "Set Test Parameters"
  90.          Height          =   375
  91.          Left            =   120
  92.          TabIndex        =   17
  93.          Top             =   6240
  94.          Width           =   2175
  95.       End
  96.       Begin VB.CommandButton Command24 
  97.          Caption         =   "Again"
  98.          Height          =   375
  99.          Left            =   1440
  100.          TabIndex        =   16
  101.          Top             =   1320
  102.          Width           =   855
  103.       End
  104.       Begin VB.CommandButton Command19 
  105.          Caption         =   "Do All Tests"
  106.          Height          =   375
  107.          Left            =   120
  108.          TabIndex        =   15
  109.          Top             =   5760
  110.          Width           =   2175
  111.       End
  112.       Begin VB.CommandButton Command17 
  113.          Caption         =   " Save Worksheet"
  114.          Height          =   375
  115.          Left            =   120
  116.          TabIndex        =   14
  117.          Top             =   2280
  118.          Width           =   2175
  119.       End
  120.       Begin VB.CommandButton Command13 
  121.          Caption         =   "Sort Rows"
  122.          Height          =   375
  123.          Left            =   120
  124.          TabIndex        =   13
  125.          Top             =   4680
  126.          Width           =   2175
  127.       End
  128.       Begin VB.CommandButton Command12 
  129.          Caption         =   "Delete Rows"
  130.          Height          =   375
  131.          Left            =   120
  132.          TabIndex        =   12
  133.          Top             =   4200
  134.          Width           =   2175
  135.       End
  136.       Begin VB.CommandButton Command11 
  137.          Caption         =   "Insert Rows"
  138.          Height          =   375
  139.          Left            =   120
  140.          TabIndex        =   11
  141.          Top             =   3720
  142.          Width           =   2175
  143.       End
  144.       Begin VB.CommandButton Command10 
  145.          Caption         =   "Copy Rows"
  146.          Height          =   375
  147.          Left            =   120
  148.          TabIndex        =   10
  149.          Top             =   3240
  150.          Width           =   2175
  151.       End
  152.       Begin VB.CommandButton Command9 
  153.          Caption         =   "Load Ascii Text"
  154.          Height          =   375
  155.          Left            =   120
  156.          TabIndex        =   9
  157.          Top             =   2760
  158.          Width           =   2175
  159.       End
  160.       Begin VB.CommandButton Command4 
  161.          Caption         =   "Load Worksheet"
  162.          Height          =   375
  163.          Left            =   120
  164.          TabIndex        =   8
  165.          Top             =   1800
  166.          Width           =   2175
  167.       End
  168.       Begin VB.CommandButton Command2 
  169.          Caption         =   "Scrolling Speed"
  170.          Height          =   375
  171.          Left            =   120
  172.          TabIndex        =   7
  173.          Top             =   5160
  174.          Width           =   2175
  175.       End
  176.       Begin VB.CommandButton Command1 
  177.          Caption         =   "Calculation"
  178.          Height          =   375
  179.          Left            =   120
  180.          TabIndex        =   6
  181.          Top             =   1320
  182.          Width           =   1335
  183.       End
  184.       Begin VB.CommandButton Command3 
  185.          Caption         =   "Fill With Numbers"
  186.          Height          =   375
  187.          Left            =   120
  188.          TabIndex        =   5
  189.          Top             =   840
  190.          Width           =   2175
  191.       End
  192.       Begin VB.CommandButton Command8 
  193.          Caption         =   "Fill With Formulas"
  194.          Height          =   375
  195.          Left            =   120
  196.          TabIndex        =   4
  197.          Top             =   360
  198.          Width           =   2175
  199.       End
  200.       Begin VB.Line Line1 
  201.          BorderColor     =   &H000000FF&
  202.          BorderWidth     =   5
  203.          X1              =   120
  204.          X2              =   2280
  205.          Y1              =   5640
  206.          Y2              =   5640
  207.       End
  208.    End
  209.    Begin VCIF1Lib.F1Book F1Book1 
  210.       Height          =   5295
  211.       Left            =   2760
  212.       TabIndex        =   18
  213.       Top             =   1440
  214.       Width           =   6615
  215.       _version        =   65536
  216.       _extentx        =   11668
  217.       _extenty        =   9340
  218.       _stockprops     =   96
  219.       borderstyle     =   1
  220.       appname         =   ""
  221.       filename        =   "FOTime1.frx":044A
  222.    End
  223. Attribute VB_Name = "Form1"
  224. Attribute VB_Creatable = False
  225. Attribute VB_Exposed = False
  226. Private Sub Command1_Click()
  227. Call CalcTime
  228. End Sub
  229. Private Sub Command10_Click()
  230. Call CopyData
  231. End Sub
  232. Private Sub Command11_Click()
  233. Call InsertRows
  234. End Sub
  235. Private Sub Command12_Click()
  236. Call DeleteRows
  237. End Sub
  238. Private Sub Command13_Click()
  239. Call SortRows
  240. End Sub
  241. Private Sub Command14_Click()
  242. End Sub
  243. Private Sub Command15_Click()
  244. End Sub
  245. Private Sub Command16_Click()
  246. End Sub
  247. Private Sub Command17_Click()
  248.     Call SaveFile
  249. End Sub
  250. Private Sub Command19_Click()
  251. Dim sserror%, C%
  252. Dim SSName$
  253. Dim ReadFileType%
  254. ' Load Formatted Result Worksheet
  255. SSName$ = App.Path + "\FOTime3.vts"
  256. Form2.ResultSheet.Read SSName$, ReadFileType
  257. Form2.ResultSheet.ShowEditBar = False
  258. Call FillTimeF
  259. C = 5
  260. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  261. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  262. Call FillTimeN
  263. C = 6
  264. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  265. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  266. Call CalcTime
  267. C = 7
  268. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  269. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  270. Call LoadFile
  271. C = 8
  272. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  273. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  274. Call SaveFile
  275. C = 9
  276. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  277. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  278. Call LoadAscii
  279. C = 10
  280. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  281. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  282. Call CopyData
  283. C = 11
  284. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  285. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  286. Call InsertRows
  287. C = 12
  288. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  289. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  290. Call DeleteRows
  291. C = 13
  292. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  293. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  294. Call SortRows
  295. C = 14
  296. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  297. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  298. Call ScrollTime
  299. C = 15
  300. Form2.ResultSheet.TextRC(C, 1) = Form1.Results
  301. Form2.ResultSheet.NumberRC(C, 2) = Global_Time_VTI
  302. Form2.Show
  303. Form2.Refresh
  304. End Sub
  305. Private Sub Command2_Click()
  306. Call ScrollTime
  307. End Sub
  308. Private Sub Command21_Click()
  309. End Sub
  310. Private Sub Command22_Click()
  311. End Sub
  312. Private Sub Command23_Click()
  313.     Form3.Show
  314. End Sub
  315. Private Sub Command24_Click()
  316.     Form1.F1Book1.AutoRecalc = False
  317.     Form1.F1Book1.Row = 1
  318.     Form1.F1Book1.Col = 1
  319.     Form1.F1Book1.Number = Int(Rnd(1) * 1000)
  320.     StartTime = GetTickCount()
  321.     Form1.F1Book1.AutoRecalc = True
  322.     EndTime = GetTickCount()
  323.     Global_Time_VTI = (EndTime - StartTime) / 1000
  324.     Form1.VTSTimeRaw = Format$(Global_Time_VTI, "0.00") + " Seconds"
  325.     If (EndTime - StartTime) < 200 Then
  326.        Form1.Insuff.Visible = True
  327.     End If
  328.     Form1.Refresh
  329. End Sub
  330. Private Sub Command3_Click()
  331. Call FillTimeN
  332. End Sub
  333. Private Sub Command4_Click()
  334. Call LoadFile
  335. End Sub
  336. Private Sub Command8_Click()
  337. Call FillTimeF
  338. End Sub
  339. Private Sub Command9_Click()
  340. Call LoadAscii
  341. End Sub
  342. Private Sub Form_Load()
  343.     Form1.Top = 0
  344.     Form1.Left = 0
  345.     Form1.Width = 9615
  346.     Form1.Height = 7200
  347.     Set_CopyRows% = DefCopyRows
  348.     Set_InsertRows% = DefInsertRows
  349.     Set_DeleteRows% = DefDeleteRows
  350.     Set_FillRows% = DefFillRows
  351.     Set_FillCols% = DefFillCols
  352.     Set_ScrollRows% = DefScrollRows
  353.     Set_SortRows% = DefSortRows
  354.     Set_CalcRows% = DefCalcRows
  355.     Set_CalcCols% = DefCalcCols
  356. End Sub
  357. Private Sub Form_Unload(Cancel As Integer)
  358.    End
  359. End Sub
  360.